home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #12 / Amiga Plus CD - 2002 - No. 12.iso / Tools / Freeware / PerfectPaint / rexx / Alchemy / Script / Ectachrome.rx < prev    next >
Encoding:
Text File  |  2001-10-23  |  736 b   |  50 lines
  1. /* Alchemy script
  2. 000
  3. 0
  4. 0
  5. */
  6.  
  7.     options results
  8.   parse ARG Port x1 y1 x2 y2 type b
  9.     ADDRESS value Port
  10.  
  11.     pp_UpdateUndoBox x1-1 y1-1 x2+1 y2+1
  12.     tot=5
  13.  
  14.     pp_AvoidRefresh
  15.     pp_Progresstext 'Ectachrome'
  16.     pp_ComposeReqOff
  17.     pp_PicttoSpare
  18.     pp_EffectOn
  19.     pp_Progress 1 tot
  20.     pp_Displace 30
  21.     pp_BoxF x1 y1 x2 y2
  22.  
  23.     pp_Progress 2 tot
  24.     pp_Compose 1 100 0
  25.     pp_ConvInit 1 159 0
  26.     pp_Conv 0 2 4 5 4 2
  27.     pp_Conv 1 4 9 12 9 4
  28.     pp_Conv 2 5 12 15 12 5
  29.     pp_Conv 3 4 9 12 9 4
  30.     pp_Conv 4 2 4 5 4 2
  31.     pp_BoxF x1 y1 x2 y2    
  32.  
  33.     pp_Progress 3 tot
  34.     pp_Compose 0 100 0
  35.     pp_BoxF x1 y1 x2 y2
  36.  
  37.     pp_Progress 4 tot
  38.     pp_Spare
  39.     pp_Compose 4 100 0
  40.     pp_BoxF x1 y1 x2 y2
  41.  
  42.     pp_Progress 5 tot
  43.     pp_EffectOff
  44.     pp_Compose 0 100 0
  45.     pp_ComposeReqOn
  46.     pp_ProgressClr
  47.     pp_PermitRefresh
  48.  
  49. EXIT
  50.